home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / misc / math / mathscript.lha / MathScript / Rexx / InsertFormula.ms < prev    next >
Encoding:
Text File  |  1994-10-05  |  819 b   |  45 lines
  1. /* This script is for the use with FinalWriter®.
  2. For the detailed description of how to connect MathScript and FinalWriter® 
  3. via ARexx, see the file FinalWriter.guide in your Docs drawer */
  4.  
  5. options results
  6.  
  7. IF ~SHOW('p',"FINALW.1") THEN EXIT
  8. /* If FW does not run -> quit */
  9.  
  10. DO i=0 WHILE EXISTS("T:formula"||i)
  11. END
  12.  
  13. ADDRESS FINALW.1
  14.  
  15. STATUS FONTSIZE
  16.  
  17. size=result
  18.  
  19. ADDRESS "MathScript"
  20.  
  21. SETPREFS PS_FONTSIZE size
  22. /* Use the current font size */
  23.  
  24. EXPORT EPS "T:formula"||i FORCE
  25. /* save as PS */
  26.  
  27. NEW
  28.  
  29. ADDRESS "FINALW.1"
  30.  
  31. SCREENTOFRONT
  32.  
  33. IMPORTPREFS DISPLAY FULL TEXTFLOW NONE LINKED NO
  34. /* Show the formula as the real image. If you want to show only a crossbox,
  35. replace FULL with CROSSBOX, which will make the resizing of the image
  36. quite faster! */
  37.  
  38. INSERTIMAGE "T:formula"||i
  39. /* load the PS-file into FW */
  40.  
  41. REDRAW
  42.  
  43.  
  44.  
  45.